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^ DMATRAN  is  a structured  programming  language  which  provides  the  logical 
constructs  that  are  necessary  to  write  structured  code  in  FORTRAN.  The 
additional  control  constructs  in  DMATRAN  are  a structured  IF  construct 
which  allows  execution  of  a group  of  statements,  (2^'lwo  basic  structures  which 
permit  iteration  while  a logical  expression  is  true  (DO  WHILE... END  WHILE)  or 
until  a logical  expression  becomes  true  (DO  UNTIL... END  UNTIL),  and  S'  non- 
Iterative  CASE  structure  which  begins  with  an  integer  expression  which  is  pi 
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evaluated  and  then  compared  with  Integers  In  a list  of  CASE  statements  that 
follow.  Execution  of  a group  of  statements  following  the  matching  CASE  state- 
ment Is  then  initiated.  The  DMATRAN  language  also  contains  an  INVOKE. . .BLOCK. . 
END  BLOCK  construct  which  provides  a form  of  Internal  subroutine  capability 
as  well  as  a way  to  reduce  overhead  costs  by  eliminating  duplicate  sections 
of  code. 

This  DMATRAN  User’s  Guide  describes  and  illustrates  each  structured  con- 
struct. It  also  explains  how  to  use  the  DMATRAN  precompiler  which  translates 
DMATRAN  into  compilable  FORTRAN  code.  The  DMATRAN  precompiler  provides 
additional  source  text  editing  and  display  features  including  page  ejection, 
suppressing  source  listing,  and  changing  the  syntax  of  DMATRAN  statements;  the 
DMATRAN  comnands  for  these  capabilities  are  also  described.  / 


The  DMATRAN  precompiler  has  been  installed  on  the  HIS  6180  GCOS  and 
MULTICS  computer  systems  at  the  Rome  Air  Development  Center,  Griffiss  AFB, 

New  York,  and  on  the  UNIVAC  1100/42  computer  systems  at  the  Defense  Mapping 
Agency  Aerospace  Center  in  St.  Louis,  Missouri,  and  the  Defense  Mapping  Agency 
Topographic  Center  in  Washington,  D.C. 
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INTRODUCTION 


DMATRAN  is  an  extension  to  FORTRAN  that  simplifies  structured 
programming  by  providing  a convenient  syntax  for  writing  structured 
programming  control  constructs.  The  DMATRAN  precompiler  translates  the 
DMATRAN  statements  Into  standard  FORTRAN  while  passing  all  other  state- 
ments unchanged  to  a file  which  can  then  be  compiled  by  the  FORTRAN 
compiler.  This  sequence  Is  illustrated  In  Fig.  1.1.  In  addition  to 
the  translation,  the  precompiler  checks  the  control  structure  for  proper 
use  of  DMATRAN  control  structures  and  issues  error  messages  If  violations 
occur. 


The  precompiler  provides  the  following  additional  features  to 
improve  code  production: 


1.  Indented  listing  of  the  DMATRAN  source  code. 

2.  Editing  functions  which  Include  In-line  comments,  double- 
spacing around  consents,  indentation  control,  selective  page 
ejection,  and  selective  suppression  of  the  source  listings. 


DO  UNTIL  (EXPRESSION) 


DO  WHILE  (EXPRESSION) 


END  WHILE 


CASE  OF  (INTEGER  EXP.) 
CASE  (INTEGER^ 


CASE  (INTEGERg) 


CASE  ELSE 


END  CASE 


END  UNTIL 


INVOKE  (BLOCK-NAME) 


BLOCK  (BLOCK-NAME) 


END  BLOCK 


Figure  2.1.  DMATRAN  Control  Constructs 


2.1  IP... THEN... ELSE... END  IF 

The  IF... THEN... ELSE... END  IF  construct  provides  block  structuring 
of  conditionally  executable  statements.  The  basic  form  of  this  construct 
Is  IF. . .THEN. . .END  IF,  Illustrated  In  Fig.  2.2.  If  <expresslon>  Is  true, 
control  transfers  to  the  first  statement  within  the  construct;  otherwise, 
the  statement  iomedlately  following  the  END  IF  will  be  executed.  Use  of 
the  ELSE  statement  is  optional.  If  the  ELSE  is  present  and  <expression> 
Is  false,  the  statements  following  the  ELSE  are  executed.  This  construct 
Is  illustrated  In  Fig.  2.3. 


IF  (<EXPRESSION>)  THEN 

• STATEMENTS  TO  EXECUTE  IF  <EXPRESSION>  IS  TRUE 
END  IF 


Figure  2.2.  IF. . .THEN. . .END  IF  Construct 


2.2  DO  WHILE... END  WHILE 


! 

' 


The  DO  WHILE... END  WHILE  construct  indicates  a repetitive  operation 
which  is  to  be  performed  zero  or  more  times.  Execution  occurs  in  the 
following  manner: 

1.  The  value  of  <expresslon>  is  found:  if  true,  the  statements 
contained  within  the  DO  WHILE  block  are  executed;  if  false, 
control  passes  to  the  statement  Immediately  following  the 
END  WHILE. 

2.  If  the  statements  within  the  DO  WHILE  block  have  been  executed, 
the  value  of  <expression>  is  checked  again,  with  the  same 
consequences  as  in  (1) . 

Figure  2.4  illustrates  the  form  and  meaning  of  this  construct.  It  is 
Important  to  note  that  no  initialization  or  Incrementing  operations  are 
caused  by  the  DO  WHILE... END  WHILE  construct.  Initialization  must  be 
explicitly  performed  prior  to  entering  the  loop,  and  the  iteration 
variables  must  be  explicitly  modified  on  each  pass  through  the  loop. 

2.3  DO  UNTIL... END  UNTIL 

The  DO  UNTIL... END  UNTIL  construct  is  like  a FORTRAN  DO-LOOP  in  that 
it  is  performed  at  least  once  and  has  a single  exit  at  the  bottom  of  the 
loop,  and  like  a DO  WHILE... END  WHILE  in  that  no  initialization  or  incre- 
menting operations  are  caused  by  this  construct.  Initialization  must  be 
performed  prior  to  entering  the  loop,  and  iteration  variables  must  be 
modified  on  each  pass  through  the  loop.  Figure  2.5  illustrates  this 
construct. 

The  statements  enclosed  within  the  DO  UNTIL  and  the  END  UNTIL  are 
executed  it  least  once.  Then  <expresslon>  is  evaluated  and,  if  false, 
iteration  and  evaluation  of  the  expression  continue  until  it  is  true. 

At  that  time  execution  of  the  statements  following  the  END  UNTIL  begins. 
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INITIALIZATION  STATEMENTS 
DO  WHILE  (<EXPRESSION>) 

STATEMENTS  TO  EXECUTE  IF  <EXPRESSION>  IS  TRUE 
END  WHILE 


FUNCTION  SQRT ( A ) 

X = A 

DO  WHILE ( ABS(X-A/X)  .GT.  l.E-6  ) 
X = (X+A/X)/2 
END  WHILE 
SQRT  = X 
RETURN 
END 


Figure  2.4.  DO  WHILE... END  WHILE  Construct 
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2.4  CASE  OF... CASE... CASE  ELSE... END  CASE 


The  CASE  statement  provides  a way  to  select  which  group  of  statements 
will  be  executed.  The  general  form  of  the  CASE  construct  consists  of 
CASE  OF. . .CASE. . .CASE  ELSE... END  CASE. 

Figure  2.6  Illustrates  the  CASE  construct.  I , J , and  N represent 
integers  of  positive  value.  They  may  be  In  any  order,  and  there  Is  no 
limit  to  how  many  Integers  may  be  listed. 

The  value  of  cinteger  expression  is  computed,  and  if  any  of  the 
specified  integers  in  the  CASE  list  are  equal  to  the  value  of  <expression> 
then  the  transfer  of  control  is  to  the  statements  which  follow  that 
particular  CASE.  If  there  is  no  such  CASE,  and  the  CASE  ELSE  statement  is 
present,  then  the  block  of  statements  following  the  CASE  ELSE  is  executed; 
otherwise,  no  block  is  executed.  If  there  are  two  CASE  statements  with 
the  same  CASE  index,  then  the  block  of  statements  following  the  first 
occurring  one  is  executed  (if  the  CASE  expression  has  that  value) . After 
the  block  of  statements  selected  has  been  executed,  control  transfers  to 
the  statement  after  the  END  CASE. 

A listing  containing  an  example  of  the  CASE  construct  is  shown  in 
Fig.  2.7. 
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SUBROUTINE  XAMPL  ( ITYPE, NPARS) 


) 

( 

i 


CASE  OF  (ITYPE) 

CASE  (3) 

CALL  GETCRD( ITYPE) 
CASE  (5) 

JTYPE  * ITYPE  + 3 


> 

I 


I 

4 


! 


! 


CALL  STRUCT(JTYPE) 

CASE  (9) 

CALL  IBALPR(ITYPE.NPARS) 
CASE  ELSE 


CALL  ERROR 


2.5  BLOCK... END  BLOCK  and  INVOKE 

The  BLOCK. ..END  BLOCK  construct  provides  a form  of  Internal  sub- 
routine capability  in  DMATRAN  source  programs.  This  construct  is  an 
internal  procedure  which  has  access  to  all  variables  in  the  routine 
which  contains  it.  A BLOCK. ..END  BLOCK  is  executed  only  if  it  is 
referred  to  with  an  INVOKE  statement  which  specifies  its  name.  The 
form  for  this  construct  is: 

INVOKE  (<name>) 

BLOCK  (<name>) 

END  BLOCK 

where  <name>  is  any  string  of  characters  (i.e.,  COMPUTE  LENGTH,  PRINT 
CURRENT  STATUS,  or  COMPUTE  NEW  ARRAY  ELEMENT).  The  name  of  a BLOCK  may 
be  arbitrarily  long,  so  that  the  name  can  have  mnemonic  significance. 

All  characters  are  significant  after  the  first  non-blank  and  before  the 
last  non-blank.  The  name  of  a BLOCK  is  known  throughout  the  entire 
routine  in  which  it  is  contained.  Figure  2.8  illustrates  this  construct. 

As  the  flowchart  for  this  construct  indicates,  it  is  a single-entry 
(the  BLOCK  statement),  single-exit  (the  END  BLOCK  statement)  section  of 
code.  An  INVOKE  statement  causes  control  to  transfer  to  the  named 
BLOCK  statement,  and  the  matching  END  BLOCK  statement  causes  control  to 
transfer  back  to  the  statement  after  the  INVOKE.  More  than  one  INVOKE 
for  a given  BLOCK. ..END  BLOCK  construct  is  allowed.  Though  BLOCK. ..END 
BLOCK  constructs  can  be  nested,  no  recursion  is  allowed  in  the  Invoking 
of  BLOCKS  (i.e.,  a BLOCK  cannot  directly  or  indirectly  invoke  Itself). 
BLOCKS  cannot  be  invoked  from  an  external  routine,  nor  can  they  be 
passed  as  a parameter  to  another  routine.  BLOCK  constructs  may  be 
placed  before  or  after  the  RETURN  statement. 
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INVOKE  (<NAME>) 
BLOCK  (<NAME>) 


SUBROUTINE  MLTPLY(A,B,C,N) 

DIMENSION  A(10,10),B(10,10),C(10,10) 

I * 1 

DO  WHILE  ( I .LE.  N ) 

J =■  1 

DO  WHILE  ( J .LE.  N ) 

INVOKE  ( COMPUTE  NEW  ARRAY  ELEMENT  ) 
J = J 1 
END  WHILE 
I » I ♦ 1 
END  WHILE 

BLOCK  ( COMPUTE  NEW  ARRAY  ELEMENT  ) 

S ■ 0.0 
K * 1 

DO  WHILE  ( K .LE.  N ) 

S * S + A(I,K)  * B(K,J) 

K « K ♦ 1 
END  WHILE 
C(I.J)  * S 
END  BLOCK 
RETURN 


V 


When  the  BLOCK. ..END  BLOCK  construct  is  used,  available  space  for 
storing  additional  BLOCK  names  is  indicated  in  the  BLOCK  Cross-Reference 
Report  (Fig.  2.9)  which  follows  the  DMATRAN  source  listing  for  each 
module.  The  total  number  of  characters  in  all  BLOCK  names  used  in  one 
subroutine  cannot  exceed  1,000.  The  number  of  INVOKES  and  the  number  of 
BLOCKS  varies  with  each  module  as  it  is  dependent  on  the  size  of  the 
names  of  the  BLOCKs  and  the  number  of  invocations.  When  the  maximum  has 
been  reached,  a message  is  printed  on  the  DMATRAN  listing  indicating  a 
BLOCK  name  table  overflow. 


BLOCK  CROSS -REFERENCE 

BLOCK  NAPE 

DEFINED 

invokec 

initialize  boundaries 

36 

27 

SORT  INCOMING  TABLE  IN  SEGMENTS 

54 

29 

PARTITION  SORT  SEGMENTED  TABLE 

BO 

30 

sort  entire  table 

114 

32 

SWITCH  INCOMING  TABLE  BLOCKS  TO  SORTED 

127 

J4 

transfer  from  table  for  first  sort 

133 

59 

116 

set  up  SORT  BY  SEGMENTS 

151 

83 

STOKE  SMALLEST  IN  TEMPORARY  TABLE 

164 

90 

96 

110 

MOvt  from  a segment  to  ARRAY 

189 

92 

157 

fimd  which  segment 

167 

95 

102 

163 

164 


645  W0R0S  LEFT 


Figure  2.9.  BLOCK  Cross-Reference  Report 
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There  are  many  reasons  for  using  the  BLOCK  construct.  For  example, 
the  overhead  in  calling  subroutines  is  often  very  high;  and,  in  addition, 
variables  in  FORTRAN  and  DMATRAN  programs  must  be  passed  as  parameters  or 
placed  in  COMMON  to  be  accessible  to  both  the  calling  routine  and  the 
subroutine  which  is  called.  Often  a subroutine  references  only  variables 
which  are  already  in  the  calling  routine.  Using  a BLOCK  structure  as  a 
Internal  subroutine  eliminates  the  need  to  provide  a means  of  accessing 
these  variables. 

Another  way  the  BLOCK  construct  can  Improve  overhead  costs  is  by 
elimination  of  duplicate  sections  of  code.  Since  the  same  BLOCK  can  be 
invoked  by  more  than  one  INVOKE  statement,  code  can  be  made  more  efficient 
by  putting  identical  sections  of  code  into  BLOCK  structures.  The  following 
example  Illustrates  the  use  of  BLOCKs  to  avoid  code  duplication. 
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Sx  and  in  the  following  code  represent  two  sets  of  statements. 
The  use  of  a BLOCK  in  Method  2 below  eliminates  the  need  for  duplicating 
code. 

Method  1: 

IF (A)  THEN 

IF(C)  THEN 

S1 

ELSE 

S2 

END  IF 

ELSE 

IF(D)  THEN 
S2 

ELSE 

S1 

END  IF 

END  IF 


Method  2 : 

IF (A)  THEN 

IF(C)  THEN 

INVOKE (BLOCK- A) 

ELSE 

INVOKE (BLOCK-B) 

END  IF 

ELSE 

IF(D)  THEN 

INVOKE (BLOCK-B) 

ELSE 

INVOKE  (BLOCK- A) 

END  IF 


END  IF 

where  the  BLOCKS  are  defined  as: 
BLOCK (BLOCK-A) 

S, 


and 


END  BLOCK 

BLOCK (BLOCK-B) 
S2 

END  BLOCK 
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3 USING  THE  DMATRAN  PREPROCESSOR 
3.1  DMATRAN  INPUT 

Figure  3.1  Illustrates  a DMATRAN  source  program  with  embedded 


FORTRAN  statements  ready  for  input  to  the  DMATRAN  precompiler.  The 
DMATRAN  source  code  begins  in  column  7 and  is  not  indented.  More  than 
one  module  may  be  processed  in  each  DMATRAN  run. 


c 

c 

c 


SUBROUTINE  ExAKPL  < INFt  .LENGTH) 
ILLUSTRATION  OF  OMATRAN  SYNTAX 
IF  (INFO. LE. 10  .AhC.  LENGTH. 61.0) THEN 

call  caller  ( info  > 

ELSE 

LENGTH=50 
ENC  IF 

CASE  OF  ( INF0+6) 

CASE  (14) 

LENGTH=LENGTH-INFO 
CASE  (17) 

DO  WHILE  (INFO. LT. 20) 

00  UNTIL  (LENGTH. LE. INFO) 

INVOKE  (COMPOTE  LENGTH) 

IF  (LENGTH. GE. JO)  THEN 
INVOKE  (PRINT-RESULTS) 

end  if 
END  UNTIL 
INFC=INF0*1 
End  hHILE 
CASE  ELSE 

DO  WHILE  (LENGTH. GT.O) 

INVOKE  (COKPuTE  LENGTH) 

END  WHILE 
END  CASE 

BLOCK  (PRINT-RESULTS) 

WRITE  (6. 1)InFC. LENGTH 
1 FORMAT  (10X.IS.2DX.1S) 

ENC  BLOCK 

BLOCK  (COMPOTE  LENGTH) 

LENGTH  = LENGTH  -10 
ENO  BLOCK 

return 

end 


EXAMpLl 

EXAWPL2 

EXAMPL3 

EXAM. L4 

EXAMf-LS 

EXAN'pLG 

EXAMPL7 

EXAHTLs 

EXAKPL9 

EXAMPL10 

EXAMpLU 

EXAMPL12 

EXAMPL13 

EXAM.PLIH 

EXAMPL15 

EXAMPL16 

EXAMPL17 

EXAMpLlQ 

EXAMPL19 

EXAMPL20 

LXAMPL21 

EXAMPL22 

EXAMPL2J 

EXAMpL24 

EXAMPL25 

EXAMPL26 

EXAMPL27 

EXAMPL20 

EXAMPL29 

EXAMPL30 

EXAMPL31 

EXAMPLJ2 

EXAMPL33 

EXAMPL34 

EXAMPL33 

EXAM.L36 


Figure  3.1.  DMATRAN  Source  Input 
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3.2  DMATRAN  INDENTED  LISTING 


I 


Figure  3.2  illustrates  the  automatically  indented  DMATRAN  listing 
which  resulted  from  processing  the  input  shown  in  Fig.  3.1.  The  heading 
contains  information  from  the  first  card  of  the  routine  being  processed, 
as  well  as  a page  number.  The  leftmost  column  of  numbers  refers  to  the 
successive  statements  of  the  DMATRAN  source  deck.  The  nesting  depth  of 
each  indented  statement  is  Indicated  next  to  the  statement  number. 
Structural  visibility  is  enhanced  by  connecting  related  DMATRAN  statements 
with  vertical  dots.  The  dots  assist  in  tracing  paths  through  the  program, 
identifying  the  statement  number  for  a given  line,  and  debugging  improperly 
formed  DMATRAN  control  constructs.  Structural  errors  are  indicated  by 
error  diagnostics  in  the  DMATRAN  listing.  Sequence  information  following 
column  72  of  the  DMATRAN  source  cards  is  included  on  the  right  side  of 
the  DMATRAN  listing. 


sis  nest  source 


SUBROUTINE  ExAmPl  ( iNFO.LENGTh) 


PAGC  1 


1 

SUBROUTINE  ExAKPL  ( INFO . LING TH  1 

EXAKPlI 

2 

C 

E*AMPl2 

5 

C 

ILLUSTRATION  CF  OxATKAN  syntax 

E.AMPL3 

1 

c 

EXAMPL9 

• 

IF  (INFO. LE. 10  .and.  LENGTH. 6T . 0 )ThEN 

E*AMPl5 

A 

1 

. CALL  CALLEH  ( INFO  ) 

EXAMPL6 

7 

ELSE 

EXAMPlY 

S 

1 

. LEN GTH=S0 

EXmMFlB 

9 

EnO  if 

ExAFPct 

10 

CASE  OF  (IHFC«G) 

EXAMPHU 

11 

CASE  (19) 

EXAPPHI 

12 

1 

, LENGThxllNGTH-INFO 

ExA,'Pli2 

15 

CASE  117) 

Ex AMPl 1 3 

1« 

1 

. DO  0HILE  UNFC.lT.20) 

EXAMPlIA 

15 

2 

• . CO  UNTIL  (LENGTH. LE.1NFQ) 

EXAMPL15 

10 

3 

. . . INVOKE  (COMPUTE  LCNOTHI 

ExAPPufc 

17 

3 

. • . IF  (LENGTH. GE. 30)  THEN 

ExAvplIT 

It 

* 

. • > . INVOKE  (PHINT-RESUlTS) 

ExAMPLie 

19 

3 

. . . END  IF 

ExAMPlis 

20 

2 

. . END  UNTIL 

EX»“Pl2u 

2 

. . INFc-INFO.1 

EXAMPlJI 

22 

1 

. LNU  wH 111 

ExA«Pl22 

25 

case  else 

ExAMFL23 

29 

1 

. DO  OHILE  (LENGTH. GT.0) 

EXAPPL29 

25 

2 

. . invoke  (compute  length) 

EXAvpt  25 

20 

1 

. END  OHlLE 

EXAXPC26 

27 

E.iO  CASE 

EXAMp(.27 

2b 

BLOCK  (PKINT-HESULTS) 

EVAVpL2B 

29 

1 

. WRITE  (b.t)lNFO. LENGTH 

EXA MPL2S 

50 

1 

1 . FORMAT  (10X.IS.20X. IS) 

ExA.vpu3u 

51 

LNO  BLOCK 

Examplsi 

52 

BLOCK  (COMPUTE  LENGTH) 

EXAMPL32 

35 

1 

. LENGTH  z LENGTH  >10 

EXAMPL33 

39 

END  BLOCK 

E»APPL3h 

35 

RETURN 

EaAMPl35 

30 

eno 

EXAMPL36 

Figure  3.2.  DMATRAN  Indented  Listing 


J£U  ML®  IS  MSI 

jacfl  fiftPV  TUR&lSgBD  TO  DDO 


3.3  FORTRAN  OUTPUT 

Figure  3.3  illustrates  a portion  of  the  FORTRAN  translation 
produced  by  the  DMATRAN  precompiler.  The  input  was  the  SUBROUTINE 
EXAMPL  from  Fig.  3.2.  The  information  in  columns  73  to  80  of  the  trans- 
lated FORTRAN  is  useful  for  tracing  translated  FORTRAN  statements  back 
to  the  original  DMATRAN  source  statements.  If  the  original  source 
statement  was  a FORTRAN  statement,  columns  73  and  74  will  contain  "FO"; 
if  it  was  a DMATRAN  statement,  column  1 is  a "C"  and  columns  73  and  74 
contain  "DM."  In  either  case  columns  77  through  80  contain  the  original 
DMATRAN  source  statement  number  (the  leftmost  column  of  numbers  on  the 
DMATRAN  listing)  and  columns  75  and  76  contain  the  depth  of  nesting  of 
the  original  statement. 
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SUBROUTINE  EX»RPL  1 INFOtLENGTH) 

r o 

1 

c 

FO 

2 

c 

ILLUSTRATION  OF  DRATRAN  syntax 

FO 

3 

c 

FO 

* 

c 

IF  I1NF0.LE.10  .ANC.  LEA6TH.6 1 .0 1 THEN 

OR 

5 

IF ( INFO.LC.IO  .AND.  LENGTH. 6T.0>  60  TO  1**97 

5 

6C  TO  199** 

5 

1»M7 

CONTINUE 

5 

CALL  CALLER  1 INFO  ) 

FO 

1 

6 

C 

test 

ON 

7 

GO  TO  1*99* 

7 

1**96 

continue 

7 

LENGTH*50 

FO 

1 

6 

C 

CNC  IF 

OR 

9 

continue 

9 

c 

CASE  OF  1 INFO+6) 

OR 

10 

I9*96xlNFO»6 

10 

GO  TO  1*996 

10 

c 

CASE  (1H) 

OR 

11 

1«9» 

CONTINUE 

11 

LCN6Th:LENGTH-INF0 

FO 

1 

12 

C 

CASE  (17) 

OR 

13 

GO  TO  1**96 

13 

1**93 

CONTIKUC 

13 

C 

00  NNILE  (INFO. LT. 20) 

OR 

1 

1* 

1**92 

CONTINUE 

1* 

IF ( 1NF0.LT .20)  GO  TO  19*90 

1* 

GO  TO  1*9*1 

1* 

1«90 

continue 

OR 

1* 

C 

CO  UNTIL  (LENGTH. LE. INFO) 

2 

15 

GO  TO  19987 

15 

mu 

CONTINUE 

15 

IF (LCNGTH.LE. INFO ) GO  TO  199** 

15 

1**67 

continue 

15 

C 

INVOKE  (CONFUTE  LENGTH) 

OR 

3 

16 

ASSIGN  1**65  TO  L1996S 

16 

ASSIGN  1**66  TO  L19965 

16 

GO  1U  19*85 

16 

19*66 

CONTINUE 

16 

c 

IF  (LEN6TH.GC.50)  THEN 

ON  3 

17 

IF(LLNGTH.G£.3C>  GO  TO  1*962 

17 

GO  TO  19905 

17 

1**62 

CONTINUE 

17 

c 

INVOKE  (PRINT-RESULTS)  . 

ON 

6 

16 

ASSIGN  19980  TO  L19960 

18 

ASSIGN  1*961  TO  L19960 

16 

GO  TO  19*60 

16 

i***a 

CONTINUE 

16 

c 

EnC  IF 

ON 

S 

19 

1**65 

continue 

1* 

1**6* 

CONTINUE 

19 

C 

CNC  UNTIL 

LH 

2 

20 

GO  TO  1*969 

20 

1*«66 

CONTINUE 

20 

InF0*1NF0«1 

FO 

2 

21 

c 

ENC  WHILE 

ON 

1 

22 

GO  To  19*92 

22 

1**91 

continue 

22 

C 

CASE  ELSE 

OR 

23 

GO  TO  19995 

23 

1**7* 

CONTINUE 

23 

C 

DO  NHILE  (LENGTH. GT.O) 

OR 

1 

2* 

1**7* 

CONTINUE 

29 

Figure  3.3.  Translated  FORTRAN 


3-4 


4 DMATRAN  CONSTRAINTS 

4.1  SYNTAX 

• A maximum  of  20  cards  per  statement 

• Statement  labels  between  10000  and  19999  should  not  be  used 
because  the  DMATRAN  preprocessor  adds  statement  labels, 
beginning  with  label  19999  counting  backwards,  to  the  FORTRAN 
source  code  (Fig.  3.3). 

• Don't  transfer  to  labeled  DMATRAN  statements  with  FORTRAN 
GO  TO's. 

• Comments  may  not  be  interspersed  within  DMATRAN  statements 

• All  two-word  DMATRAN  directives  may  be  written  as  two  separate 
words  or  merged  into  one;  i.e.,  DO  UNTIL  or  DOUNTIL. 

4.2  DO  UNTIL 

When  the  DO  UNTIL... END  UNTIL  construct  is  used  for  iteration,  it 
is  important  to  note  that  the  statements  contained  within  the  construct 
will  be  executed  once  before  the  logical  expression  is  evaluated. 


4.3  CASE 

The  value  of  <lnteger-expression>  in  CASE  statements  must  be 
positive. 

4.4  BLOCK  CONSTRUCT 

• Each  BLOCK. ..END  BLOCK  construct  should  occur  after  all 
INVOKE  statements  which  refer  to  the  block  name,  but  may  be 
before  or  after  the  RETURN  statement. 

• Blocks  can  only  be  entered  through  INVOKE  statements. 

Sequential  control  transfers  around  BLOCK... END  BLOCK  con- 
structs. Do  not  use  a GO  TO  enter  the  middle  of  a BLOCK.. 

END  BLOCK  construct  from  outside  the  block. 

• The  maximum  number  of  INVOKES  and  BLOCKS  depends  on  the  lengths 


A 


5 DISPLAY  COMMANDS 

The  DMATRAN  precompiler  supports  a variety  of  conmands  for 
controlling  the  format  of  DMATRAN  source  listings.  The  capabilities 


suppor 


ed  Include: 


Suppressing  source  listing 
Double-spacing  around  comments 

Keyword  recognition  to  allow  a more  simple  DMATRAN  syntax 
Page  ejection 
Extended  comments 


5.1  COMMAND  FORM 

The  DMATRAN  command  statement  has  two  basic  forms,  both  are  FORTRAN 
comment  statements  and  begin  with  a C in  column  1.  The  first  command 
statement  form  Is 

C<command> 

<command>  must  start  in  column  2 and  may  be  any  of  the  following: 


NOLIST 


EJECT 


The  second  form  of  the  DMATRAN  command  statement  is 
CXCOM  <value> 

<value>  must  be  a single  character  in  colunn  7;  column  6 must  be  blank. 


5.2  SOURCE  LISTING 

The  DMATRAN  source  listing  nay  be  turned  off  and  on  with  the  two 
comnands 

CNOLIST 

CLIST  (default) 

This  feature  is  useful  when  the  DMATRAN  source  code  is  large  and 
only  parts  of  the  code  are  being  modified. 

5.3  DOUBLE-SPACE  AROUND  COMMENTS 

Optional  double-spacing  around  comments  is  obtained  by  the  command 

CDSOK 

and  is  turned  off  with  the  command 
CNODS  (default) 

5.4  KEYWORD  RECOGNITION 

The  commands  for  control  of  display  format  are: 

CKWOK 

CNOKW  (default) 

The  CKWOK  command  (meaning  "key-word  OK")  allows  DMATRAN  statements  to  be 
written  in  a simpler  syntax.  When  the  DMATRAN  precompiler  is  in  keyword 
recognition  mode,  it  recognizes  DMATRAN  statements  which  do  not  have 
parentheses  surrounding  clauses  (as  well  as  all  statements  normally 
recognized).  In  this  mode,  DMATRAN  keywords  are  recognized  if  they  begin 
a statement,  contain  no  blanks,  and  are  immediately  followed  by  a blank. 

A problem  may  arise  if  FORTRAN  is  the  embedded  language.  FORTRAN  IF 
statements  will  be  interpreted  as  DMATRAN  IF  statements  when  a blank 
precedes  the  left  parenthesis  of  the  statement.  Figure  5.1  contains  an 
example  of  the  simpler  DMATRAN  syntax  with  English  as  the  embedded  language 
Figure  5.2  is  the  listing  that  results  from  processing  the  example  in 
Fig.  5.1  which  uses  the  DMATRAN  display  commands. 


5Sf““H“I«“ttmnucncuu 

TURMISJOD  10  DDC 


crwok 

CUSOK 

C 


SUBROUTINE  TC  FIND  SflUARE  ROOTS 


for  each  INFuT  value  DETERMINE  the  SQUARE  ROOT 
c initial  value  is  positive.  real 

OOUNTIL  AN  EOF  Is  ENCOUNTERED 
INVOKE  REAC  INPUT  VALUE 

determine  initial  estimate  of  swuake  hoot 

OONHlLE  ESTIMATE  HAS  CONVERGED  TO  A 

IF  CURRENT  ESTIMATE  IS  WORSE  THAN  PREVIOUS  ESTIMATE  THEN 
DETERMINE  NEW  estimate 
END  IF 
end  while 

C CURRENT  EPSILON  IS  l.OE-OS 

IF  ESTIMATE**2  IS  WITHIN  EPSILON  OF  A THEN 

INVOKE  PRINT  SQUARE  HOOT 

else 

INVOKE  PRINT  ERROR  MESSAGE 
ENO  IF 
ENO  UNTIL 
CNOLIST 

c these  blocks  will  be  cocec  later 

block  reac  input  value 

END  BLOCK 

GLOCK  print  error  message 
end  block 

CLIST 

CLJECT 

CNOOS 

CN0KW 

C BLOCK  WRITTEN  6/77 

BLOCK  (PRINT  SQUARE  ROOT) 

PRINT  1000«  ROOT 
1000  FORMAT  (*  ROOT  = *.£12.5) 

ENO  BLOCK 

return 

ENC 


Figure  5.1.  DMATRAN  Keyword  Syntax 
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SCO  NEST  SOURCE 


KMOK 


1 

2 

J 

6 

5 


CKMCK 


SUBROUTINE  TO  FI NO  SQUARE  ROOTS 

COSOK 

C FOR  EACH  INPUT  VALUE  OETERHINE  THE  SQUARE  ROOT 
C INITIAL  VALUE  IS  POSITIVE,  REAL 

OOUNTIL  AN  EOF  IS  ENCOUNTERED 


7 

1 

• 

INVOKE  READ  INPUT  VALUE 

0 

1 

• 

OETERHINE  INITIAL  ESTIMATE  OF  SQUARE 

ROOT 

9 

1 

• 

OOMHILE  ESTIMATE  HAS  CONVERGEO  TO  A 

10 

2 

• 

. IF  CURRENT  ESTIMATE  IS  NORSE  THAN 

PREVIOUS 

11 

3 

• 

. . OETERHINE  NEN  ESTIMATE 

12 

2 

• 

. ENO  IF 

13 

1 

• 

ENO  MHILE 

16 

1 

C 

• 

CURRENT  EPSILON  IS  1.0E-05 

IS 

1 

• 

IF  ESTIMATED  IS  MITHIN  EPSILON  OF  A 

THEN 

16 

2 

• 

. INVOKE  PRINT  SQUARE  ROOT 

17 

1 

• 

ELSE 

10 

2 

• 

. INVOKE  PRINT  ERROR  MESSAGE 

19 

1 

• 

ENO  IF 

20 

ENO 

UNTIL 

27 

C 

SEQ  NEST  SOURCE 


C 

CNOOS 

CNOKN 

C 


KMOK 


BLOCK  WRITTEN  6/77 
BLOCK  (PRINT  SQUARE  ROOT) 

. PRINT  1B0B,  ROOT 
1000  . FORMAT (•  ROOT  * *,E12.5) 

ENO  BLOCK 
RETURN 
ENO 


Figure  5.2.  Listing  of  DMATRAN  Keyword  Example 
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5.5  PAGE  EJECTION 


Specification  of  page  ejection  at  any  point  in  the  DMATRAN  listing 
la  especially  useful  in  delineating  BLOCK  structures;  it  is  obtained  by 
the  command 

CEJECT 

5.6  EXTENDED  COMMENT 

Comments  may  follow  a statement  by  using  the  command 
CXCOM  <value> 

For  example,  in  the  command 
CXCOM  ; 

the  extended  comment  character  is  considered  to  be  The 

statement 

T - T + DT  ; ADVANCE  TIME 

would  appear  on  the  DMATRAN  listing  unmodified,  but  the  text  "ADVANCE 
TIME"  would  be  changed  into  a FORTRAN  comment  on  the  translated  FORTRAN 
output . 

C ADVANCE  TIME 
T • T + DT 
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SUMMARY  OF  DMATRAN  STATEMENTS  AND  COMMANDS 


PAGE  DMATRAN  STATEMENT  FUNCTION 

2-3  IF. . .THEN. . .ELSE. . .END  IF  Selection  construct 

2-5  DO  WHILE... END  WHILE  Iteration  with  test  at  top 

2-5  DO  UNTIL... END  UNTIL  Iteration  with  test  at  bottom 

2-8  CASE  OF. . .CASE. . .CASE  ELSE... END  CASE  Selection  construct 


2-11  INVOKE 

2-11  BLOCK... END  BLOCK 

PAGE  DMATRAN  COMMAND 

(defaults  underlined) 

5-2  LIST 

5-2  NOLIST 

5-2  DSOK 
5-2  NODS 

5-2  KWOK 

5-2  NOKW 

5-5  EJECT 

5-5  XCOM  <char> 


Execute  an  internal  subroutine 

Internal  subroutine  with 
mnemonic  name 

FUNCTION 

Resume  listing  of  DMATRAN 
source  statements 

Suppress  listing  of  DMATRAN 
source  statements 

Double-space  around  comments 

Suppress  double-spacing 
around  comments 

Enter  keyword  recognition 
mode 

Leave  key  word  recognition  node 
New  page 

Set  the  extended  comment 
character 
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FILES  USED  AT  RADC  INSTALLATION 


UNIT  FILE  NAME 

1 INPUT 

2 PRINT 


3 COMPILE 


] 

I 

I 

1 

DESCRIPTION 
DMATRAN  source  input 
Indented  listing  of  DMATRAN  source 
Compilable  FORTRAN  output 


FILES  USED  AT  DMA  INSTALLATIONS 


UNIT 

FILE  NAME 

DESCRIPTION 

5 

INPUT 

DMATRAN  source  input 

6 

PRINT 

Indented  listing  of  DMATRAN  source 

3 

COMPILE 

Compilable  FORTRAN  output 

RADC  HONEYWELL  6180/GC0S 
SAMPLE  DMATRAN  JOB  STREAM 


The  job  scream  in  the  following  example  can  be  used  to  execute 
the  DMATRAN  precompiler. 

1.  $ IDENT 

2.  $ SELECT  BFCBGRC4 /DMATRAN / EXECUTE 

3.  $ PRMFL  01,R,S, (BCD  dmatran  source  file) 

4.  $ PRMFL  03,W,S,  (BCD  translated  FORTRAN  source  file) 

' 5.  $ ENDJOB 

The  BCD  DMATRAN  Source  File  may  have  been  generated  by  a programmer 
or  by  the  FAVS  Restructure  Option  (See  FAVS  User's  Guide,  General  Research 
Corporation  CR-1-754) . 


C-2 


RADC  HONEYWELL  6180/MULTICS 


SAMPLE  DMATRAN  JOB  STREAM 
(USING  THE  GCOS  ENCAPSULATOR) 

' ■ -J  r ( • 

In  order  to  use  the  DMATRAN  precompiler,  using  source  code 
written  in  DMATRAN  generated  by  a programmer  or  by  FAVS  restructurer, 
the  job  stream  shown  in  the  following  example  can  be  used. 


1. 

$ 

snumb 

(number) 

2. 

$ 

ident 

3. 

$ 

program 

rlhs 

4. 

$ 

limits 

(CP  time  limit) ,32k, , (print  line  limit) 

5. 

$ 

prrafl 

h*,r,r, >udd>3201c0320>Urban>  dmatran>hstar 

6. 

$ 

select 

>udd>  3201c0320>Urban>dmatran>  f iledef s -ascii 

7. 

$ 

prmfl 

01,r,s,>udd>(BCD  dmatran  source  file) 

8. 

$ 

prmfl 

03,w,s,>udd> (BCD  Translated  FORTRAN  source  file) 

9. 

$ 

end j ob 

DMA  UNIVAC  1100/42 
SAMPLE  DMATRAN  JOB  STREAM 

The  job  stream  in  the  following  example  can  be  used  to  execute 
the  DMATRAN  precompiler. 


@ASG,A 

Y0URS0URCE. 

.YOUR  DMATRAN  SOURCE 

8USE 

Y. .Y0URS0URCE. 

• 

<*ASG,A 

DBM*FAV  S-DMA . 

. ASG  DMATRAN  PRECOMPILER 

cuse 

DMA. ,DBM*FAVS-DMA. 

• 

.EXECUTE  DMATRAN  PRECOMPILER 

GXQT 

DMA. TRAN 

3 ADD 

Y. ELEMENTS 

.ADD  DMATRAN  SOURCE  ELEMENTS  HERE 

The  UNIVAC  1100/42  Installation  of  the  DMATRAN  precompiler  supports 
an  additional  command  (see  Sec.  5.1)  to  assist  in  compiling  translated 
DMATRAN.  This  command  contains  CFOR  in  columns  1 thru  4,  followed  by  any 
desired  Information  in  columns  5 thru  80.  The  DMATRAN  precompiler  changes 
the  C In  coluon  1 of  all  CFOR  commands  to  an  0 character  as  the  CFOR 
command  is  written  to  the  FORTRAN  output  file.  When  the  DMATRAN  precompiler 
automatically  adds  the  FORTRAN  output  file  to  the  runstream,  the  translated 
CFOR  cards  direct  the  FORTRAN  V compiler.  Note  that  to  compile  a DMATRAN 
source  element,  the  first  line  in  the  element  should  be  a CFOR  command. 
Indented  listings  without  FORTRAN  V compilations  may  be  obtained  by 
omitting  CFOR  commands. 
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B-2 

IF... THEN  construct 
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INVOKE  Statement 
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PAGES 


KWOK  Command 

5-2, 
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Label,  Initial  Generation  of 

4-1 

Level,  Nesting 
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3-3 

LIST  Command 

5-2, 

5-3, 

5-4 

Listing,  FORTRAN 

3-3 

Listing,  DMATRAN 

3-2 

Listing  Unit,  DMATRAN 

B-2 

Nesting  Depth 

3-2, 

3-3 

NODS  Command 

5-2, 

5-3, 

5-4 

NOKW  Command 

5-2, 

5-3, 

5-4 

NOLIST  Command 

5-2, 

5-3, 

5-4 

Number  of  BLOCKS 

2-13 

Number  of  INVOKES 

2-13 

RADC  Files 

B-2 

RADC  Job  Streams 

C-2, 
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Structured  Programming 

1-1 

XCOM  Command 
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DMATRAN  CONTROL  CONSTRUCTS 


CONDITIONAL 

IF  (logical  expression)  THEN 

[ELSE] 

END  IF 

LOOP 

DO  WHILE  (logical  expression) 

END  WHILE 

SEQUENTIAL 
INVOKE  (block  name) 

BLOCK  (block  name) 


CASE  OF  (integer  expression) 
{CASE  (index  {,  index})} 

[CASE  ELSE] 

END  CASE 

DO  UNTIL  (logical  expression) 

END  UNTIL 


END  BLOCK 

[ ] = optional 

{ } = optional  an  arbitrary  number  of  times 


DMATRAN  COMMANDS  (Defaults  Underlined) 


LIST 

NOLIST 

DSOK 

NDOS 

KWOK 

NOKW 

EJECT 

XCOM  <char> 


List  source  statements 

Suppress  listing  of  source  statements 

Double-space  around  consents 

Single-space  around  comments 

Reserved  keywords  identify  DMATRAN  statements 

No  reserved  keywords 

New  page 

Set  the  extended  comment  character 


